Pulp 2/Pulp_02_1999_POL_de.d64/n4B.CCCCC. B

Commodore BASIC | 2023-02-26 | 5KB | 119 lines

0 poke53265,peek(53265)and239:
1 dimw$(300):poke53281,0:poke53280,0:poke650,128
2 fori=1to15:poke211,0:poke214,i:sys58640
3 print"[147][156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
4 poke211,0:poke214,16:sys58640:print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
5 goto10
7 poke53265,peek(53265)or16:return
10 forr=1to91:reada$:w$(r)=a$:next
11 poke211,0:poke214,17:sys58640:
12 print" [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201] ";:u$="mag"
13 print"[213][203][151]  <[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]>  [202][201]";
14 print"[194][155]             [176][195][195][174] [176][195][195][174] [174]              [194]";
15 print"[194]             [171][195][195][189] [194]  [194] [194]              [194]";
16 print"[194][155]             [173]    [173][195][195][189] [173][195][195][189]           [194]";
17 print"[202][201][151]  <[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]>  [213][203]";
18 print" [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203] ";:gosub7
20 x=0:y=-1
21 fori=1to15:poke211,1:poke214,i:sys58640:print"[154]"w$(x+i):next:goto22
22 geta$:
23 ifa$=chr$(13)then50
24 if a$="."andx<75thenx=x+15:goto21
25 if a$=","andx>0thenx=x-15:goto21
26 goto22
50 poke828,0:printchr$(147)chr$(17):print"[144]load"chr$(34)"m1*"chr$(34)",8"
51 printchr$(17)chr$(17)chr$(17)chr$(17)"run"
52 poke631,13:poke632,13:poke198,2
53 printchr$(19);:end
100 data"die c-64 scene waechst ! dies bestae- "
101 data"tigt zumindest berlin, wo sich inner- "
102 data"halb der letzten 5 monate ueber 8 neu-"
103 data"e begeisterte gefunden haben  !!!     "
104 data"                                      "
105 data"und nun ist es soweit. eine neue group"
106 data"ist auf dem triumphmarsch. ersteinmal "
107 data"beschreibe ich alle mitglieder:     "
108 data"                                     "
109 data"> lost brain <                      "
110 data"seit oktober '98 in der scene.      "
111 data"in berlin kaulsdorf wohnend         "
112 data"16 jahre alt (seit oktober 98)      "
113 data"beruf: schule; auf dem weg ins abitur "
114 data"basiccoder; startet 1. versuche in ass"
115 data"                                       "
116 data"                                      "
117 data"                                     "
118 data"                                      "
119 data"                                      "
120 data"                                      "
121 data"                                      "
122 data"   zu den anderen naechstes mal mehr!  "
123 data"                                     "
124 data"                                      "
125 data"                                     "
126 data"                                      "
127 data"                                     "
128 data"                                      "
129 data"                                      "
130 data"                                       "
131 data"                                      "
132 data"                                      "
133 data"                                      "
134 data"                                     "
135 data"                                      "
136 data"                                      "
137 data"                                       "
138 data"                                      "
139 data"                                      "
140 data"                                      "
141 data"                                      "
142 data"                                      "
143 data"                                      "
144 data"                                      "
145 data"nun allgemein zu uns :                "
146 data"unser name besteht ja nur aus drei    "
147 data"buchstaben. diese stehen fuer:        "
148 data"                                      "
149 data"p[154]ower o[154]f l[154]amer                        "
150 data"                                      "
151 data"denn auch lamer sollten eine chance   "
152 data"bekommen, sich in der scene zu eta-   "
153 data"blieren. mit diesem gedanken knuepfen "
154 data"wir an braindeath an, der sich beson- "
155 data"ders fuer newcomer einsetzt. diese    "
156 data"werden ja gerne als lamer bezeichnet. "
157 data"                                      "
158 data"doch ohne newcomer stirbt die scene,  "
159 data"wenn jeder an seinem naiven gedanken  "
160 data"verharrt, newcomer lieber ausser acht "
161 data"zu lassen !!                          "
162 data"                                      "
163 data"wie ihr sehen koennt, gibt es unter   "
164 data"uns keinen richtig guten ass-coder.   "
165 data"basiccode reicht fuers erste. da wir  "
166 data"aber vorhaben, weitere member zu su-  "
167 data"chen, koennten wir auf einen solchen  "
168 data"ass - coder treffen. ausserdem bin ich"
169 data"(lost brain) dabei, ass zu lernen.    "
170 data"nebenbei laeuft aber noch eine 10.    "
171 data"die ich hier an einem gymnasium ma-   "
172 data"chen muss. bleibt einfach zu wenig    "
173 data"zeit !!! wenn dann das abitur dran ist"
174 data"werde ich mich sowieso von meinem     "
175 data"compi etwas fernhalten. sprich werde  "
176 data"ich nicht mehr soviel zeit haben !!!! "
177 data"                                      "
178 data"wenn ihr bei p.o.l. eintreten wollt,  "
179 data"oder andere fragen habt ruft einfach  "
180 data"bei lost brain an (siehe addie) !!!!! "
181 data"                                      "
182 data"                                      "
183 data"                                      "
184 data"                                      "
185 data"                                      "
186 data"                                      "
187 data"                                      "
188 data"                                      "
189 data"                                      "
190 data"                                      "